home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Inventory.DMD < prev    next >
Text File  |  1997-11-20  |  1KB  |  53 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Inventory.dmd - Mugs Sample Application
  4. //
  5. //  Inventory Data Module for the Customer data entry form.
  6. //
  7. //  Dependencies: MUGS.CDM
  8. //                INVENTORY.DBF
  9. //                SUPPLIER.DBF
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.5  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. //---------------------------------------------------------------
  19. ** END HEADER -- do not remove this line
  20. //
  21. // Generated on 10/09/97
  22. //
  23. class InventoryDataModule of MUGSDATAMODULE from "mugs.cdm"
  24.  
  25.  
  26.    this.SUPPLIER1 = new QUERY()
  27.    this.SUPPLIER1.parent = this
  28.    with (this.SUPPLIER1)
  29.       left = 6
  30.       top = 3
  31.       database = form.dbmugs
  32.       sql = 'SELECT * FROM "SUPPLIER.DBF"'
  33.       active = true
  34.    endwith
  35.  
  36.  
  37.    this.INVENTORY1 = new QUERY()
  38.    this.INVENTORY1.parent = this
  39.    with (this.INVENTORY1)
  40.       left = 2
  41.       top = 3
  42.       database = form.dbmugs
  43.       sql = 'SELECT * FROM "INVENTORY.DBF"'
  44.       active = true
  45.    endwith
  46.  
  47.  
  48.    with (this.INVENTORY1.rowset)
  49.       fields["Supplier ID"].lookupSQL := 'SELECT supplier."Supplier ID", company FROM "supplier.dbf" supplier'
  50.    endwith  
  51.       
  52. endclass
  53.